#lang racket


(require "constructors/main.rkt")

(provide bind-rosetta-print)


(define default-current-print (current-print))

(define (rosetta-print value)
  (default-current-print (evaluate-toplevel value)))

(define (bind-rosetta-print)
  (current-print rosetta-print))